home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Docs / Tutorials / IfTest.gc < prev    next >
Text File  |  1999-04-21  |  2KB  |  111 lines
  1. G4C
  2.  
  3. ; This is a convoluted function, to show you how if/elseif/while etc
  4. ; constructs work with the new additions. The gui loads up, goes
  5. ; through the stuf below, prints out the result, and quits.
  6.  
  7. ; it should print out :
  8. ; ** CORRECT 1 2 3 4 5 test finished
  9.  
  10.  
  11. xonload
  12.  
  13.     if 1 = 5
  14.     or 1 = 2
  15.     or 1 = 9
  16.         say 'wrong.1\n'
  17.     elseif 1 = 2
  18.     or 2 = 3
  19.         say 'wrong.2\n'
  20.     else
  21.         ifexists dos ram
  22.         OrifExists dos dh0
  23.         and 1 = 0
  24.             say 'wrong.3\n'
  25.         elseif 1 != 0
  26.             a = 1
  27.             while $a < 5
  28.             and 1 = 1
  29.                 gosub iftest.gc one      ; this is the correct one
  30.             endwhile
  31.         elseif 2 = 2
  32.         or 3 = 3
  33.             say 'wrong.4\n'             ; although this is also correct, the
  34.         else                                     ; previous elseif has precedence
  35.             say 'wrong.5\n'
  36.         endif
  37.         if     2 = 2
  38.         and 3 = 4
  39.             say 'wrong.6\n'
  40.         endif
  41.     endif
  42.  
  43.     if 5 = 6
  44.     or 6 = 7
  45.     or 7 = 9
  46.         say 'wrong.end\n'
  47.     elseifexists dos nodrive
  48.     and 1 = 1
  49.         say 'wrong.end2\n'
  50.     else
  51.         say 'test finished.\n'     ; this should also be printed.
  52.     endif
  53.  
  54.     guiquit iftest.gc
  55.  
  56.  
  57. ; --------------------- routine testing
  58.  
  59. xroutine one
  60.     if 1 = 2
  61.     or 2 = 3
  62.         say 'wrong r1.1\n'
  63.     elseif 3 = 3
  64.     and 4 = 4
  65.         if 5 = 5
  66.         and 6 = 6
  67.             gosub iftest.gc two      ; this is correct
  68.         elseif 7 = 9
  69.         or 9 = 9
  70.         or 1 = 1
  71.             say 'wrong r1.2\n'    ; also correct, but should NOT be executed
  72.         else
  73.             say 'wrong r1.3\n'
  74.         endif
  75.     else
  76.         say 'wrong r1.4\n'
  77.     endif
  78.  
  79.  
  80. xroutine two
  81.     if 1 = 2
  82.     or 2 = 3
  83.         say 'wrong r2.1\n'
  84.     elseif 3 = 3
  85.     and 4 = 4
  86.         if 5 = 5
  87.         or 7 = 6
  88.             if $a = 1
  89.                 say '\n ** CORRECT! 1 '      ; Yes!
  90.                 while $a < 5
  91.                 or 1 = 2
  92.                     counter a inc 1
  93.                     say '$a '
  94.                 endwhile
  95.             endif
  96.         elseif 9 = 9
  97.         and 1 = 1
  98.             say 'wrong r2.2\n'
  99.         else
  100.             say 'wrong r2.3\n'
  101.         endif
  102.     else
  103.         if 2 = 2
  104.         or 1 = 1
  105.             say 'wrong r2.4\n'
  106.         endif
  107.     endif
  108.  
  109.  
  110.  
  111.